Public Class Install
    Public Sub CreateSchema( _
                    ByVal sConnection As String, _
                    ByRef OUTPUT_ErrorCount As Integer)
        Dim oFactory As New DBInstall
        oFactory.CreateSchema(sConnection, OUTPUT_ErrorCount)
    End Sub
End Class
